Perguntas MsExecAuto Tabela de Preços

Prezados

Estou com problema em um MSEXECAUTO não saio do lugar, estou criando uma rotina para que a tabela de preços seja alimentada (tanto para inclusão quanto para alteraçã), porém me ocorre os erros em anexo. O mais estranho que fazendo o padrão Totvs funciona certinho, porém como uso a minha rotina informa Valor atribuído difere do tamanho do campo DA0_CODTAB. Mesma coisa ocorre com campo DA1_PRCVEN. No anexo contém o fonte, o arquivo de exemplo e exemplo que peguei do TDN da Totvs.

Alguém poderia me ajudar?